home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr50
/
idpds10.zip
/
IDOOR.BI
< prev
next >
Wrap
Text File
|
1993-04-09
|
3KB
|
78 lines
'*************************************************************************
'* This file must be included in all your modules to access these subs & *
'* functions. Also please read the docs for a better explanation about *
'* the common shared variables. *
'*************************************************************************
DECLARE FUNCTION SetArraySize% (row1%, col1%, row2%, col2%)
DECLARE FUNCTION Isalpha% (ch$)
DECLARE FUNCTION DialogBox% (List$(), Row%, Col%, length%, BoxWidth%, Sort$, Hotkey$, Escape$, BorderType%, TopForeColor%, BottomForeColor%, BackGround%, TextColor%)
DECLARE FUNCTION EXIST% (filename$)
DECLARE FUNCTION Hitkey$ (Who)
DECLARE FUNCTION InputData$ (Allowed%, Fore%, Back%, Temp$, Mask$, Hotkey$)
DECLARE FUNCTION Max% (First%, SSecond%)
DECLARE FUNCTION Min% (First%, SSecond%)
DECLARE FUNCTION OpenBinary% (filename$)
DECLARE FUNCTION OpenInput% (filename$)
DECLARE FUNCTION OpenOutPut% (filename$)
DECLARE FUNCTION OpenAppend% (filename$)
DECLARE FUNCTION Timer2! ()
DECLARE FUNCTION CheckTermulation ()
DECLARE FUNCTION SendAnsi% (filename$)
DECLARE FUNCTION SendAvatar% (filename$)
DECLARE FUNCTION SendText% (filename$)
DECLARE SUB LineFeed (Number%)
DECLARE SUB BackSpace (Number%)
DECLARE SUB ClearLine ()
DECLARE SUB PutAnsiScreen (scrn%(), row1%, col1%, row2%, col2%, Fast$)
DECLARE SUB Initialize ()
DECLARE SUB ExitDoor ()
DECLARE SUB MakeWindow (row1%, column1%, row2%, Column2%, Header$, header2$, BorderType%, TopForeColor%, BottomForeColor%, BackGround%, HeaderColor%)
DECLARE SUB SendColorLine (LineNumber%, Column%, TextLine$, Fore%, Back%)
DECLARE SUB ChangeColor (Fore%, Back%)
DECLARE SUB ChangePos (R%, C%)
DECLARE SUB CheckAllStuff (K$)
DECLARE SUB CheckColor (TextLine$)
DECLARE SUB CurSorLeft (Number%)
DECLARE SUB CursorDown (Number%)
DECLARE SUB CursorUp (Number%)
DECLARE SUB CursorRight (Number%)
DECLARE SUB Rinstr (St$, st2$, Found%)
DECLARE SUB SendCode (St$)
DECLARE SUB SendLongString (St$)
DECLARE SUB SendPlainCode (St$)
DECLARE SUB ClearWindow ()
DECLARE SUB GetAnsiScreen (scrn(), row1%, col1%, row2%, col2%)
DECLARE SUB SortSt (Array() AS STRING)
DECLARE SUB ANSIMusic (musicst$)
DECLARE SUB EnterKey (St$, Fore%, Back%, Row%, Col%)
DECLARE SUB RestoreCursor ()
DECLARE SUB SaveCursor ()
DECLARE SUB SendPlainLine (Row%, Col, St$, Fore%, Back%)
'*************************************************************************
'* These are the variables you can access. Not all of the variables can *
'* be changed. Please refer to the IDOOR.DOC for an explanation of each.*
'*************************************************************************
COMMON SHARED UserLocation$
COMMON SHARED BaudRate$
COMMON SHARED Port
COMMON SHARED BBSName$
COMMON SHARED SysopName$
COMMON SHARED DisplayType
COMMON SHARED UserName$
COMMON SHARED TimeLeft
COMMON SHARED SecurityLevel&
COMMON SHARED XPos
COMMON SHARED YPos
COMMON SHARED SysopScrollColor
COMMON SHARED SysopPromptColor
COMMON SHARED SysopHighColor
COMMON SHARED SysopTextColor
COMMON SHARED Node
COMMON SHARED DoorType
COMMON SHARED DoorDirectory$
COMMON SHARED Dinfo$()